home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / mac / Media / Solaris.dxr / Internal_20_save Game.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  1.9 KB  |  61 lines
  1. global gbPC, gRootPath, gPicNo
  2.  
  3. on mouseUp me
  4.   setCursorWait()
  5.   updateStage()
  6.   fxObj = xtra("FileXtra3").new()
  7.   if gbPC then
  8.     dtPath = fxObj.fx_FolderGetSpecialPath("CSIDL_DESKTOPDIRECTORY")
  9.   else
  10.     dtPath = fxObj.fx_FolderGetSpecialPath("kDesktopFolderType")
  11.   end if
  12.   if dtPath = EMPTY then
  13.     alert("Error finding desktop folder" & RETURN & "Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  14.     fxObj = 0
  15.     exit
  16.   end if
  17.   DestFolder = dtPath & "Solaris"
  18.   if not fxObj.fx_FolderExists("destFolder") then
  19.     res = fxObj.fx_FolderCreate(DestFolder)
  20.     if res = 0 then
  21.       alert("Error creating folder on desktop" & RETURN & "Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  22.       fxObj = 0
  23.       exit
  24.     end if
  25.   end if
  26.   if gbPC then
  27.     SrcPath = gRootPath & "Game\Windows\EightLeggedFreaksInstall.exe"
  28.     destPath = DestFolder & "\EightLeggedFreaksInstall.exe"
  29.   else
  30.     SrcPath = gRootPath & "Game:MacOS:EightLeggedFreaks.sit"
  31.     destPath = DestFolder & ":EightLeggedFreaks.sit"
  32.   end if
  33.   res = fxObj.fx_FileCopy(SrcPath, destPath)
  34.   if res = 0 then
  35.     alert("Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  36.     fxObj = 0
  37.     exit
  38.   end if
  39.   if gbPC then
  40.     SrcPath = gRootPath & "Game\Windows\readmepc.txt"
  41.     destPath = DestFolder & "\readmepc.txt"
  42.   else
  43.     SrcPath = gRootPath & "Game:MacOS:readmemac.txt"
  44.     destPath = DestFolder & ":readmemac.txt"
  45.   end if
  46.   res = fxObj.fx_FileCopy(SrcPath, destPath)
  47.   if res = 0 then
  48.     alert("Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  49.     fxObj = 0
  50.     exit
  51.   end if
  52.   fxObj = 0
  53.   setCursorStop()
  54.   updateStage()
  55.   alertObj = new(xtra("MUI"))
  56.   alertInitList = [#Buttons: #Ok, #default: 1, #title: "Download", #Message: "Game Saved!", #movable: 1]
  57.   if objectp(alertObj) then
  58.     result = alert(alertObj, alertInitList)
  59.   end if
  60. end
  61.